home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n17.arc / DYNLINK < prev    next >
Text File  |  1991-09-25  |  551b  |  18 lines
  1. Declare Function LoadLibrary Lib "kernel" (modname As String) As Integer
  2. Declare Function GetProcAddress Lib "kernel" (handle As Integer, \
  3.     funcname As String) As Long
  4.  
  5. Sub MAIN
  6.     Input "Module name", modname$
  7.     Input "Function name", funcname$
  8.  
  9.     module = LoadLibrary(modname$)
  10.     If module < 32 Then Goto done   ' failed
  11.     funcptr = GetProcAddress(module, funcname$)
  12.  
  13.     Print modname$; "."; funcname$; " at "; funcptr; " in module#"; module
  14.  
  15.     ' No way to _call_ funcptr: that's why we need DECLARE!
  16. done:
  17. End Sub
  18.